Top 10k strings from Soccer Director (1990)(GTI Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
5 B$(A)="+": 4 TCOU=TCOU+1 4 A$(GMTI,12 4 A$(ERIC,12 3 WEEK=WEEK+ 3 S(G)=S(G)+ 3 M(G)=M(G)+ 3 )=I(CCC+20 2 S(G)=S(G)- 2 S(CCC)=S(CCC)+ 2 PLEASE WAIT 2 O(A)=O(A)-S(A)-F(A)-M(A): 2 M(G)=M(G)- 2 M(A)=M(A)+ 2 I(GMTI)=I(GMTI)-10 2 I(CCC)=I(CCC)+10 2 F(G)=F(G)- 2 F(G)=F(G)+ 2 B(CCC)=B(CCC)+10 2 A$(GT8)=Y$( 2 ;O(A);"/1";" "; 2 ;A;"-";A$(A): 2 ;"YOU WIN THE VOTE": 2 ;"VOTE RETURNED IN YOUR FAVOUR.": 2 ;"MINIMUM 10 SHARES": 2 )+S(A)+F(A)+M(A): 2 "9";A$(A);" "; 2 "6";A;"."; 2 "2";O(A);"/1";" "; 2 " TEAM NO.";TN 2 " TEAM NO. (0 TO EXIT) "; 2 PLAYERS INJURED 2 FREE TRANSFER 1 v$="AVAILABLE": 1 s 1 c : 1 b A 1 Z$="POINTS" 1 Z$="POINT": 1 YOUR SHARES VALUE: `";SHCO: 1 YOU DONT OWN ANY SHARES" 1 YOU CAN GO INTO THE RED"; 1 YOU ARE OUT-VOTED 1 Y(A)=P(A): 1 Y$(B)=Y$(B+ 1 Y$(A)=A$(A): 1 Y$(A);" "; 1 XTRA=XTRA+ 1 XTRA=V(G)* 1 WEEKS PER SEASON 1 WEEK ";WEEK;" DIV ";DIV: 1 V(GMTI)=V(GMTI)+1 1 V$="UNAVAILABLE" 1 V$="AVAILABLE": 1 UPUTUPUPUTUP 1 UPUTUPUPUTPT 1 TUT=SHI*SOF: 1 TTLO=S(GMTI)+M(GMTI)+F(GMTI) 1 TOT=PC+GR+PW+FINE+SIGN+TAX: 1 TO=TO+SC8: 1 TO=TO+SC1: 1 TO=OD*SC8: 1 TO=OD*SC1: 1 THIS SEASONS BETS: 1 THE GROUND STAYS THE SAME. 1 TCOU=TCOU-1 1 TCOU=TCOU+ 1 TAX BILL FOR `"; 1 TAB;A;". ";A$(A) 1 STW=STW+SELL: 1 SOF>I(ERIC)+SFTR 1 SHST=I(B+20 1 SHOW=I(B+40 1 SHCO=SHCO+I(A+ 1 SHARES OWNED 1 SHARES GO UP." 1 SHARES DROP.": 1 SHARES DROP. MORALE FALLS. 1 SHARE NEWS 1 SELL>I(TN+40 1 SELECT TEAM NUMBER: 1 SCORE=SCORE*OTM: 1 SAVE THIS GAME 1 SAL=I(BOFF): 1 S(C)=S(C)+ 1 S(A)>S(RR) 1 S(A)=S(RR) 1 S(A)=S(A)-HY 1 S(A)=S(A)- 1 S(A)=S(A)+HY 1 S(A)=S(A)+ 1 S(A)<S(RR) 1 S DIRECTOR# 1 RELEGATION 1 QUARTER FINALS :TEAMS STILL IN 1 PURCHASE ? 1 PRICE STOCK OWN 1 PRESS Z FOR BARGAIN 1 POLICE COSTS `"; 1 PFST=PFST/2 1 PFST=I(A)*I(A+40 1 PERC=PERC/ 1 PERC=GM-TOT: 1 P(A)=TOT+ADD 1 OD=O(GT8+20 1 OD=O(GT1): 1 OD=O(CUW): 1 O$(GRTE)=H$: 1 N(A)=TOT+ADD 1 MARKET CLOSED" 1 M(A)=M(A)-HY 1 M(A)=M(A)- 1 M(A)=M(A)+HY 1 LOSE=E(B): 1 LOAN REPAYMENT COMPLETE 1 LOAD A SAVED GAME 1 LIVERPOOL #EVERTON #CHELSEA *ARSENAL *SOUTHAMPTON*NORWICH *ASTON VILLA*TOTTENHAM *NOTTM FOR *MILLWALL *MAN UTD *COVENTRY #C PALACE *LUTON DERBY *MAN CITY *WIMBLEDON *Q.P.R #CHARLTON *SHEFF WED * 1 LINE UP FOR THE CUP FINAL 1 K(A)=TOT+ADD 1 J$="BALANCED" : 1 INTEREST FREE"; 1 IN;A$(A);"....";U(A);" ";Z$: 1 IN;A$(A);"....";U(A);" ";Z$ 1 IF YOU WISH AT YOUR OWN RISK! 1 I(GMTI)=I(GMTI)-5 1 I(GMTI)=I(GMTI)+5 1 I(GMTI)=I(GMTI)+10 1 I(ERIC)+SFTR 1 I(CCC)=I(CCC)+30 1 I(C)=I(C)+10 1 I(B)=I(B+1 1 I(A)=I(A)-I(A)/ 1 I(A)=I(A)- 1 I(A)=I(A)+ 1 I$="BALANCED": 1 HULL NEWCASTLE WEST HAM WATFORD SWINDON IPSWICH LEEDS UTD PLYMOUTH OXFORD OLDHAM 1 HSCO=SCORE 1 GTI 1 GROUND MAINTENANCE `"; 1 G=S(R)+F(R)+M(R) 1 FOR WINNING THE CUP 1 F=S(A)+F(A)+M(A): 1 F.A CUP, STILL IN SEMI FINALS: 1 F(A)=F(A)-HY 1 F(A)=F(A)+HY 1 E(A)=TOT+ADD 1 E$="WEEK ": 1 E$="UTO RESULTS": 1 E$="TABLE": 1 E$="SOCCER": 1 E$="SOCCER DIRECTOR": 1 E$="SEASON ": 1 E$="PLEASE WAIT": 1 E$="GAME OVER": 1 E$="G.T.I": 1 E$="ELEGATION": 1 E$="EAGUE WINNER": 1 E$="DIRECTOR": 1 E$="CONGRATULATIONS": 1 E$="CALCULATING": 1 E$="BETTING MENU": 1 E$="ANUAL RESULTS": 1 E$=".A CUP WINNER": 1 DRAW=K(B): 1 DIVISION 1 PTS SKL FIT MOR 1 DIVISION 1 1 CUP WEEKS ";LS* 1 CROWD TROUBLE,FINE OF `"; 1 CONFIRM SAVE Y/N 1 CONFIRM LOAD Y/N 1 CBS=I(TN)*BS 1 BUT SHARES DROP. MORALE FALLS 1 BUT BIG TEAM MORALE BOOST. 1 BS>I(TN+20 1 BANK `";BA: 1 BANK `";BA 1 BA=BA-TUT: 1 BA=BA-SAL* 1 BA=BA-CBS: 1 BA=BA-1000 1 BA=BA+PERC: 1 BA=BA+I(TN)*SELL: 1 BA=2000000 1 B(CCC)=B(CCC)+30 1 B(C)=B(C)+10 1 B$="LOSE": 1 B$="DRAW": 1 B$(A)="-": 1 B$(A)=" ": 1 A$(TBC);" TO WIN F.A CUP" 1 A$(J)=Y$(J): 1 A$(GT8);" RELEGATION DIV 1" 1 A$(GT1)=Y$( 1 A$(GT1);" TO WIN DIV 1" 1 A$(BOFF,12 1 A$(A);" `";I(A); 1 ;SHI;" ACCEPT YOUR OFFER 1 ;A;".";A$(A);" `"; 1 ;A$(ERIC): 1 ;A$(BOFF): 1 ;A$(A);". "; 1 ;;"YOU HAVENT THAT MANY": 1 ;"YOU WON ON THE CUP. ";O(CUW);"/1": 1 ;"YOU WIN THE VOTE.": 1 ;"YOU PICKED DIV 1 WINNER. ";O(GT1);"/1": 1 ;"YOU LOSE THE VOTE.": 1 ;"YOU CANT AFFORD THAT MANY": 1 ;"YOU ARE OUT-VOTED": 1 ;"WINS ";W;" DRAWS ";D/2 1 ;"VOTE RETURNED AGAINST YOU.": 1 ;"SHARES TO BID FOR ";SRB: 1 ;"RELEGATION FROM DIV 1. ";O(GT8+20 1 ;"PRESS C TO CONTINUE": 1 ;"PLEASE WAIT": 1 ;"PLEASE WAIT" 1 ;"PERSONAL COST PER MEETING CALLED": 1 ;"OUTSTANDING `";100000 1 ;"NOT AVAILABLE": 1 ;"MANAGER SACKED.": 1 ;"MAKE YOUR OFFER OVER `";I(ERIC) 1 ;"CURRENT PRICE `";I(ERIC) 1 ;"BANK `";BA 1 ;"BANK NOW `";BA: 1 ;"ARE YOU SURE Y/N ? ": 1 ;"5. EXIT" 1 ;"4. COACHING STAFF WAGE RISE": 1 ;"3. WAGE RISE TO PLAYERS": 1 ;"2. IMPROVE GROUND FACILITIES": 1 ;"1. SACK MANAGER": 1 ;"* TEAMS 1 ;" NO BETS MADE " 1 ;" ": 1 : SEE SHARES OWNED"; 1 : SEE FORM TABLE" 1 : PLAY SEASON"; 1 : MAKE SHARE OFFER" 1 : GAME OPTIONS"; 1 : CALL SHARE MEETING"; 1 : BUY/SELL SHARES"; 1 : BETTING MENU"; 1 ,SPC;P(A); 1 +ERIC)=I(ERIC+40 1 )=O$(GRTE+1 1 )=O$(GRTE): 1 ''"DUE TO A CONSORTIUM PULL OUT ": 1 ''"BANK NOW `";BA: 1 '"TOTAL COST OF 500 `";SAL*500 1 '"TO COVER LOSSES": 1 '"OFFER PRICE `";SAL: 1 '"NORMAL PRICE PER SHARE `";I(BOFF): 1 '"ARE SOLD BY YOUR CREDITORS ": 1 '"500 SHARES ARE NOW AVAILABLE IN:": 1 "`80000 FOR WINNING LEAGUE DIV 1" 1 "TEAM NO. (0 EXIT) "; 1 "STAKE `";SC;" RETURN `";TO: 1 "STAKE `";SC8;" RETURN `";TO: 1 "STAKE `";SC1;" RETURN `";TO: 1 "LIVERPOOL","EVERTON","CHELSEA","ARSENAL","SOUTHAMPTON","NORWICH","ASTON VILLA","TOTTENHAM","NOTTM FOR","MILLWALL","MAN UTD","COVENTRY","C PALACE","LUTON","DERBY","MAN CITY","WIMBLEDON","Q.P.R","CHARLTON","SHEFF WED" 1 "INSERT SAVED GAME AND PRESS PLAY": 1 "HULL","NEWCASTLE","WEST HAM","WATFORD","SWINDON","IPSWICH","LEEDS UTD","PLYMOUTH","OXFORD","OLDHAM" 1 "DIRECTOR": 1 "DIRECTOR" 1 "9873"+XTRA: 1 "9";"WEEK SEASON ?" 1 "9";"DIVISION 1 P W D L PT": 1 "9";" ,";LS* 1 "8";"LOAN AVAILABLE: 1 "7";"SOFTWARE (C) 1989 "; 1 "7";"SEASON 1 "7";"HI-SCORE 1 "7";"FINAL SCORE 1 "7";"BANK `";BA: 1 "7";"ACCEPT Y/N" 1 "7";"# TEAMS 1 "7";" ,";LS* 1 "7";" PRESS SPACE " 1 "6";A$(CCC): 1 "6";"WRITTEN BY STEVE BYE"; 1 "6";"SHAREHOLDERS MEETING": 1 "6";"FOR `"; 1 "5";"SEASON ";SEA;" F.A CUP WINNER ": 1 "5";"PLAYERS WAGES `"; 1 "40")=I(BOFF+ 1 "40")*I(A) 1 "4";A$(CCC): 1 "4";"REPAYABLE AT 1% PER WEEK" 1 "4";"PRESS S TO SEE SHARES OWNED": 1 "4";"PRESS Q TO QUIT GAME": 1 "4";"PRESS M FOR MENU 1": 1 "4";"PRESS B TO CHECK BETS"; 1 "4";"PLAYTESTING MICK SPARKES"; 1 "4";"BANK NOW `";BA 1 "4";"BANK NOW `";BA: 1 "4";"1% LOAN REPAYMENT `1000": 1 "25000"/DV: 1 "25"+SSS;B(A) 1 "23";B$(A): 1 "21";S(A);" ";F(A);" ";M(A): 1 "21"+KSP;; 1 "2";A;".";A$(A);" `";I(A); 1 "2";A$(GMTI) 1 "2";A$(A); 1 "2";"YOUR SHARES IN "; A$(A): 1 "18",ACR;"BANK `";BA: 1 "17";"`";I(A); 1 "15054"+M(G)* 1 "150000"/DV: 1 "13";" ";I;" ": 1 "13",ACR;"DIV 1 "12";"YOU OWN :";I(G+ 1 "12";"STOCK AV:";I(G+ 1 "12";"SHARE PR:`";I(G); 1 "12";"DIVIDEND:`";PERC: 1 "12")="*": 1 "12")=" ": 1 "11";A$(C) 1 "10000"/DV: 1 "1000"*STOW: 1 "10";A$(G); 1 " THE GROUND WILL BE IMPROVED.": 1 " MANAGER STAYS ON.": 1 " MANAGER IS SACKED.": 1 " COST: EXTRA `1000 PER WEEK.": 1 " STAKE `"; 1 " HOW MANY TO SELL ?";SELL 1 " HOW MANY TO BUY ?";BS 1 " WAGES STAY THE SAME": 1 YOU OWN THE TOP TEN TEAMS 1 WINNER ";Y$( 1 PRESS SPACE WHEN READY " 1 NOT ACCEPTED 1 NEW SIGNING COSTS `"; 1 G.T.I SOFTWARE 1989B 1 G.T.I SOFTWARE 1989" 1 DIVISION 1": 1 - +-+ ++- + - - 1 PRESS ANY KEY FOR A NEW GAME 1 DIVISION 1 1 RESULTS 1 CUP LEAGUE REL 1 GAME OPTIONS 1